﻿Public Class ClsDragDropItem
    'represents item to drag&drop

#Region "Attributes"
#Region "Private attributes"
    Private MeTypeOfDragDropItem As GeTypeOfDragDropItem = GeTypeOfDragDropItem.kkNone 'type of drag&drop item
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IeTypeOfDragDropItem As GeTypeOfDragDropItem)
        MeTypeOfDragDropItem = IeTypeOfDragDropItem
    End Sub
#End Region
#Region "Properties"
#Region "Public attributes"
    Public Property TypeOfDragDropItem() As GeTypeOfDragDropItem
        Get
            Return MeTypeOfDragDropItem
        End Get
        Set(ByVal IeValue As GeTypeOfDragDropItem)
            MeTypeOfDragDropItem = IeValue
        End Set
    End Property
#End Region
#End Region
#Region "Functions"
    'gets type of drag&drop item
    Public Shared Function GetTypeOfItem() As System.Type
        Return New ClsDragDropItem(0).GetType()
    End Function
#End Region

End Class
